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Table of contents 
tt $ HISTORY ; Detailed Current Edit History 
(3) DECLARATION 
(4) 131 FORSREAD_DF = READ DIRECT formatted 
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D DIRE 1 FORMATTED 


-TITLE FORS$R Ap DF - onery point for FORTRAN REA 
IDENT /1-01 e: FORREADDF.MAR Edit: JAW1012 


=MPARRBARARAAABRBAAALARLASALAALALESELELEL ELSE EE SELES ESE REE R SEES EPEC EER REESE EELS OS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
* 
w 
e 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY JIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHE . NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY ®* 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. : 
2 
® 
* 
® 
® 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR —" OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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"FACILITY: FORTRAN Support Library - user callable 


ABSTRACT: 
s module contains the entry point for the FORTRAN 
REAS DIRECT FORMATTED I/0 statement. It is simp ply 
a call to FOR$$IO_BEG with bits in RO which describe the 
Soreanter List. FORS$IO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER Bek yr DF 
. MASK FORS$$10_ BEG 
BRW FORSREAD. br e2 


This puts the correct mask in entry vector, that is FORS$I0_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: | 
T. Hastings, 29-July-78 
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tr 
HISTORY -; Detailed Current Edit History 6-SEP- 0:58:54 CFORRTL.SRCIJFORREADDF .MAR; 1 
: -SBTTL HISTORY ; Detailed Current Edit History 
9 59 ; Edit History for Version 1 
000 61 ; 1 - Add comment about vectors. TNH 23-June-78 
000 62 ; O-12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
4 63 ; 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
4 64 ; 1-208 - Change statement type symbols to be LUBSK... JBS 07-DEC-78 
B88 65 ; 1-38 - change, ; ptatesens c.sree ey t oly to be ISBSK... JBS 11-DEC-78 
000 66 ; 1-004 - directi JBS 22- 
44 67 ; 1-005 - Aad FOR RSREAG. ny FORSREAD_KO FORSREWRITE SF, FORSREWRITE_SO, 
000 68; FORSREAD_IF, FORSREAD 40+ gj ORSWRITE _IF, FORSWRITE_10, 
0000 9; FORSREAD_ =KU, FORSREWR RITE 
0000 0; SBL 2-May-1979 
0000 71 ; 1-006 = Remove : n entry peices § that need object time formatting, 
0000 72 ; puts ing them in FORSENTRY_OBJ so that we can arrange to 
0000 73 ; ° e foraas compiler Only when it is needed. 
0000 74 ; JBS 26-JUN-1979 
0000 75 ; 1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
0000 76 ; for it and FORS$$I0_BEG, to see how much I/0 initiation time 
0000 77 ; improves. JBS 02-JUL-197 
0000 78 : 1-008 - Do Likewuse for FORSREAD _DU and FORSWRITE_DU. JBS se ad 
0000 79 ; 1-009 - Remove all entry points @xcept FORSREAD_DF; each of 
0000 80 ; others gets its own module so we can silectively Lo Ass 
0000 81 ; the necessary UDF and REC modules. JBS 09-JUL-1979 
0000 Hf ; 1-010 = Correct some typos in the references to the 
0000 83 ; UDF and REC levels. JBS 12-JUL- ao 
0000 84 ; 1-011 - New parameter format for FORS$$IO SBL 5-Dec-1979 
0000 85 ; 1-012 - Change BRW FORS$$I0_BEG+2 to JMP On GassiD "BEG+?. JAW 21-Feb-1981 
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; PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


: EQUATED SYMBOLS: 


: OWN STORAGE: 
: NONE 


DECLARATIONS 6-SEP-1984 10:58: FORRTL.SRC 
i -SBTTL DECLARATIONS 
+ ; INCLUDE FILES: 

3 3 
00 9 $SFORPAR : Define inter-module FORTRAN symbols 
444 8¢ S$ISBDEF ; Define statement type symbols 
$38 38 : 
00 9 EXTERNAL SYMBOLS: 
b80 98 ; 

0 99 
000 00 -DSABL GBL ; Declare all external symbols 
s'44 4 i -EXTRN FORSS$I0O_BEG ; common 1/0 statement processing 
000 8 : The roe seueny SS vorereness are to make sure the necessary UDF and REC 
000 04 ; modules are load ese are pre routines which are called through 
44 B23 3; the dispatch cables Phy FORSSDISPAT 
000 07 ~-EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 
B00 43 -EXTRN FORSSREC_RDO, FORSSREC_ _RD1, FORSSREC_RD9 

00 10 ; 

00 11 ; MACROS: 

00 \¢ 3 

00 13 3 NONE 

00 14 ; 

00 15 

00 16 
00 17 
00 18 

00 19 
00 20 ; 
00 21 
00 ea: 

0 23 

0 24 

0 25 

0 $8 

0 7 

0 28 

0 29 
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T formatted SEP=1 
-SBTTL ead - READ DIRECT formatted 


fe od 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a READ DIRECT formatted 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSREAD_DF (unit.rl.v, record no.rl.v, format_adr.mbu.ra 
, err_adr.j.r C, end_adr.j. TrJ)) 


INPUT PARAMETERS: 


unit.rl.v Logical unit number 
record _no.rl.v record number to read 
format_adr. abu. ra adr. of compiled format byte array 
err_adr. Se rj optional ERK= address 
end_adr.j.rJ optional END= address 


IMPLICIT INPUTS: 

NONE except those used by FORS$$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORS$S$IO_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$I0O_BEG. 


FORSREAD DF: MASK FORS$$I0_ BEG 
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yo OvzBL #ISBS$K_ST_TY_RDF, RO Statement type 
G*FORSSIO_BEG+2 branch past call mask 


END 


v04-00 
0:58:54 (CFORRTL.S RCIF FORREADDF .MAR; 1 


FORSREAD_DF 
Symbol table 


The working set Limit was 900 pages. 
There were 20 


Macro Library name 

“Bes SEOUACE : PEORRTL 001 2F ORR TL 8:1 
$255$0UA28: CSYSLIBJSTARLET.MLB; 
TOTALS (all Libraries) 


! Macro Library statistics ! 
poe coe women coc ewer ewe mown ae + 


cros. 
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FORSSIO_BEG eenereee =X 0 
FORSSREC_RDO eeeerere =X 
FORSSREC_RD1 eeeereee =X 6 
FORSSREC_RDO eeereree =X 
FORSSUDF _RFO aeereeee =X 00 
FORSSUDF “RF 1 tereeeee§ X 00 
FORSSUDF —RF9 teeeeeee =X 00 
FORSREAD_DF 00000000 RG 01 
ISBSK_ST_TY_RDF = 00000006 

¢eeececeeseececce + 

H Psect synopsis ! 
PSECT name Allocation PSECT No. 
- ABS. 00000000 < 0.) ( 0.) NOPIC 
_FORSCODE 00000008 ¢ 11.) ( 1.) PIC 

wow maaan moana wren eee oe 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.09 00:00:00.54 
Command processing 115 00:00:00.67 00:00:03.51 
Pass 1 123 00:00:01.25 BS 88:82 -1 8 
Symbol table sort 0 00:00:00.18 00:00:00.40 
Pass 2 47 00:00:00.50 00:00:01.41 
Symbol table output S 00:00:00.01 00:00:00.03 
Psect synopsis output 2 00:00:00.02 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 320 00:00:02.74 00:00:11.09 


Macros defined 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADDF /OBJ=OBJ$:FORREADDF MSRC$:FORREADDF /UPDATE=(ENHS$:FORREADDF ) +L I 


Attributes 


5 
6 


SEP=1984 23:55:30 yA¥/VMS Macro 
Seen 19be TorsBiee FraRNCS eaeieo 


CON ABS 
CON REL 


6690 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
179 source Lines were read in Pass 1, prodyc 3ng 8 object records in Pass 

9 pages of virtual memory were used to define 2 ma 


v04 
RRE 


paint P 
AvDt .MAR;1 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LCL SHR EXE RD NOWRT NOVEC LONG 


5 
(4) 
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